home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln1085.arc / P6.PAS < prev    next >
Pascal/Delphi Source File  |  1986-02-27  |  768b  |  27 lines
  1. program p6;   {input tester - sample mode only according to DEC}
  2.               {Live dangerously and try the request mode anyway!}
  3.  
  4. const     request = 1;
  5.           sample  = 0;
  6.  
  7. var  x,y,i,j  : integer;    sx,sy, s : string[20];
  8.             p : ^integer;
  9.  
  10. {$iB:GSXWORK.INC}
  11. {$iB:GSXTEXT.INC}
  12. {$iB:GSXINPUT.INC}
  13.  
  14. begin
  15.    write('Enter workstation number > ');  readln(i); writeln;
  16.    openstation(i);
  17.    setinputmode(1,1,i);
  18.    for j := 1 to 10 do
  19.        if inputlocator(1,request,x,y,x,y,p) > 0 then begin
  20.        str(x,sx); str(y,sy);   s := '(' + sx + ',' + sy + ')';
  21.        showtext(s, length(s), x,y)
  22.    end;
  23.    readln;
  24.    clearstation;
  25.    closestation
  26. end.
  27.